subroutine log_msg2_indent(nunit,ni,str1,str2)
  use param
  implicit none

  integer,intent(in) :: nunit,ni
  character :: str1*(*),str2*(*)

  integer :: i,n
  character(len=len_linebuf) :: fstr

  fstr=""

  write(fstr,'("(",i0,"x,a,1x,a)")') ni

  write(nunit,trim(fstr)) trim(adjustl(str1)),trim(adjustl(str2))

  return

end subroutine log_msg2_indent
